home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Science / Biology / WayeBox Folder / WayeBox 1.1 / box2 / background_5997.txt < prev    next >
Encoding:
Text File  |  1990-06-13  |  14.0 KB  |  679 lines

  1. -- background: 5997 from stack: in
  2. -- bmap block id: 6374
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. ON OPENCARD
  8.   HIDE BACKGROUND FIELD "SHOW"
  9. END OPENCARD
  10.  
  11.  
  12.  
  13. -- part 2 (field)
  14. -- low flags: 00
  15. -- high flags: 0007
  16. -- rect: left=159 top=107 right=159 bottom=216
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 3
  21. -- text size: 9
  22. -- style flags: 0
  23. -- line height: 12
  24. -- part name: 
  25.  
  26.  
  27. -- part 3 (field)
  28. -- low flags: 00
  29. -- high flags: 0007
  30. -- rect: left=49 top=107 right=158 bottom=105
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 9
  36. -- style flags: 0
  37. -- line height: 12
  38. -- part name: 
  39.  
  40.  
  41. -- part 4 (field)
  42. -- low flags: 00
  43. -- high flags: 0007
  44. -- rect: left=49 top=175 right=225 bottom=105
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 9
  50. -- style flags: 0
  51. -- line height: 12
  52. -- part name: 
  53.  
  54.  
  55. -- part 5 (field)
  56. -- low flags: 00
  57. -- high flags: 0007
  58. -- rect: left=104 top=175 right=225 bottom=160
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 3
  63. -- text size: 9
  64. -- style flags: 0
  65. -- line height: 12
  66. -- part name: 
  67.  
  68.  
  69. -- part 6 (field)
  70. -- low flags: 00
  71. -- high flags: 0007
  72. -- rect: left=160 top=175 right=225 bottom=216
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 0
  76. -- font id: 3
  77. -- text size: 9
  78. -- style flags: 0
  79. -- line height: 12
  80. -- part name: 
  81.  
  82.  
  83. -- part 7 (field)
  84. -- low flags: 00
  85. -- high flags: 0007
  86. -- rect: left=49 top=242 right=293 bottom=103
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 0
  90. -- font id: 3
  91. -- text size: 9
  92. -- style flags: 0
  93. -- line height: 12
  94. -- part name: 
  95.  
  96.  
  97. -- part 8 (field)
  98. -- low flags: 00
  99. -- high flags: 0007
  100. -- rect: left=102 top=243 right=293 bottom=158
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 3
  105. -- text size: 9
  106. -- style flags: 0
  107. -- line height: 12
  108. -- part name: 
  109.  
  110.  
  111. -- part 9 (field)
  112. -- low flags: 00
  113. -- high flags: 0007
  114. -- rect: left=158 top=243 right=293 bottom=216
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 0
  118. -- font id: 3
  119. -- text size: 9
  120. -- style flags: 0
  121. -- line height: 12
  122. -- part name: 
  123.  
  124.  
  125. -- part 10 (field)
  126. -- low flags: 00
  127. -- high flags: 0007
  128. -- rect: left=228 top=107 right=159 bottom=284
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 0
  132. -- font id: 3
  133. -- text size: 9
  134. -- style flags: 0
  135. -- line height: 12
  136. -- part name: 
  137.  
  138.  
  139. -- part 11 (field)
  140. -- low flags: 00
  141. -- high flags: 0007
  142. -- rect: left=283 top=107 right=159 bottom=338
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 0
  146. -- font id: 3
  147. -- text size: 9
  148. -- style flags: 0
  149. -- line height: 12
  150. -- part name: 
  151.  
  152.  
  153. -- part 12 (field)
  154. -- low flags: 00
  155. -- high flags: 0007
  156. -- rect: left=338 top=107 right=159 bottom=395
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 0
  160. -- font id: 3
  161. -- text size: 9
  162. -- style flags: 0
  163. -- line height: 12
  164. -- part name: 
  165.  
  166.  
  167. -- part 13 (field)
  168. -- low flags: 00
  169. -- high flags: 0007
  170. -- rect: left=228 top=176 right=226 bottom=287
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 0
  174. -- font id: 3
  175. -- text size: 9
  176. -- style flags: 0
  177. -- line height: 12
  178. -- part name: 
  179.  
  180.  
  181. -- part 14 (field)
  182. -- low flags: 00
  183. -- high flags: 0007
  184. -- rect: left=285 top=176 right=226 bottom=340
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 0
  188. -- font id: 3
  189. -- text size: 9
  190. -- style flags: 0
  191. -- line height: 12
  192. -- part name: 
  193.  
  194.  
  195. -- part 15 (field)
  196. -- low flags: 00
  197. -- high flags: 0007
  198. -- rect: left=340 top=176 right=226 bottom=394
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 0
  202. -- font id: 3
  203. -- text size: 9
  204. -- style flags: 0
  205. -- line height: 12
  206. -- part name: 
  207.  
  208.  
  209. -- part 16 (field)
  210. -- low flags: 00
  211. -- high flags: 0007
  212. -- rect: left=229 top=243 right=295 bottom=287
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 0
  216. -- font id: 3
  217. -- text size: 9
  218. -- style flags: 0
  219. -- line height: 12
  220. -- part name: 
  221.  
  222.  
  223. -- part 17 (field)
  224. -- low flags: 00
  225. -- high flags: 0007
  226. -- rect: left=286 top=243 right=295 bottom=341
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 0
  230. -- font id: 3
  231. -- text size: 9
  232. -- style flags: 0
  233. -- line height: 12
  234. -- part name: 
  235.  
  236.  
  237. -- part 18 (field)
  238. -- low flags: 00
  239. -- high flags: 0007
  240. -- rect: left=341 top=243 right=294 bottom=394
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 0 / 0
  243. -- text alignment: 0
  244. -- font id: 3
  245. -- text size: 9
  246. -- style flags: 0
  247. -- line height: 12
  248. -- part name: 
  249.  
  250.  
  251. -- part 20 (field)
  252. -- low flags: 00
  253. -- high flags: 4000
  254. -- rect: left=53 top=81 right=99 bottom=392
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 12288
  261. -- line height: 16
  262. -- part name: lab name
  263.  
  264.  
  265. -- part 21 (field)
  266. -- low flags: 00
  267. -- high flags: 0000
  268. -- rect: left=402 top=150 right=185 bottom=510
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 0
  272. -- font id: 3
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: freezer
  277.  
  278.  
  279. -- part 22 (button)
  280. -- low flags: 00
  281. -- high flags: 8000
  282. -- rect: left=409 top=21 right=39 bottom=508
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: Return to Map
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   put item 1 of field 3 into z
  294.   go to card z of stack "box1"
  295.   --go back to Map card
  296. end mouseUp
  297.  
  298.  
  299.  
  300. -- part 23 (button)
  301. -- low flags: 00
  302. -- high flags: 0000
  303. -- rect: left=405 top=305 right=328 bottom=431
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 1014 / 1014
  306. -- text alignment: 1
  307. -- font id: 0
  308. -- text size: 12
  309. -- style flags: 0
  310. -- line height: 16
  311. -- part name: Prev
  312. ----- HyperTalk script -----
  313. on mouseUp
  314.   go to prev card
  315. end mouseUp
  316.  
  317.  
  318.  
  319. -- part 24 (button)
  320. -- low flags: 00
  321. -- high flags: 0000
  322. -- rect: left=437 top=306 right=329 bottom=462
  323. -- title width / last selected line: 0
  324. -- icon id / first selected line: 1013 / 1013
  325. -- text alignment: 1
  326. -- font id: 0
  327. -- text size: 12
  328. -- style flags: 0
  329. -- line height: 16
  330. -- part name: Next
  331. ----- HyperTalk script -----
  332. on mouseUp
  333.   go to next card
  334. end mouseUp
  335.  
  336.  
  337.  
  338. -- part 26 (field)
  339. -- low flags: 00
  340. -- high flags: 0000
  341. -- rect: left=402 top=224 right=259 bottom=510
  342. -- title width / last selected line: 0
  343. -- icon id / first selected line: 0 / 0
  344. -- text alignment: 0
  345. -- font id: 3
  346. -- text size: 12
  347. -- style flags: 0
  348. -- line height: 16
  349. -- part name: card id
  350.  
  351.  
  352. -- part 45 (button)
  353. -- low flags: 00
  354. -- high flags: 8002
  355. -- rect: left=408 top=43 right=65 bottom=508
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: pop card
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   pop card
  367. end mouseUp
  368.  
  369.  
  370.  
  371. -- part 47 (button)
  372. -- low flags: 00
  373. -- high flags: 8000
  374. -- rect: left=408 top=66 right=88 bottom=508
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: go to lab
  383. ----- HyperTalk script -----
  384. on mouseUp
  385.   push card
  386.   if field "lab name" is empty then
  387.     ask "what is the name of the lab"
  388.     if it is empty then exit mouseup
  389.     put it into field "lab Name"
  390.   end if
  391.   put field "lab Name" into labName
  392.   go to stack "box1"
  393.   go to card item 1 of labName
  394. end mouseUp
  395.  
  396.  
  397.  
  398.  
  399. -- part 48 (button)
  400. -- low flags: 00
  401. -- high flags: 8002
  402. -- rect: left=409 top=91 right=113 bottom=509
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: no. of cards
  411. ----- HyperTalk script -----
  412. on mouseUp
  413.   set userlevel to 5
  414.   put empty into message box
  415.   get number of cards
  416.   put "The total Number of Cards = " into word 1 of message
  417.   put it into word 7 of message
  418.   set userlevel to 2
  419. end mouseUp
  420.  
  421.  
  422.  
  423. -- part 51 (field)
  424. -- low flags: 00
  425. -- high flags: 0007
  426. -- rect: left=53 top=25 right=78 bottom=391
  427. -- title width / last selected line: 0
  428. -- icon id / first selected line: 0 / 0
  429. -- text alignment: 0
  430. -- font id: 3
  431. -- text size: 12
  432. -- style flags: 256
  433. -- line height: 16
  434. -- part name: name
  435.  
  436.  
  437. -- part 52 (button)
  438. -- low flags: 00
  439. -- high flags: 8002
  440. -- rect: left=409 top=195 right=218 bottom=505
  441. -- title width / last selected line: 0
  442. -- icon id / first selected line: 0 / 0
  443. -- text alignment: 1
  444. -- font id: 0
  445. -- text size: 12
  446. -- style flags: 0
  447. -- line height: 16
  448. -- part name: Empty all
  449. ----- HyperTalk script -----
  450. on mouseUp
  451.   answer "Do you want to empty all fields?" with "yes" or "no" or "cancel"
  452.   if it is "no" then exit mouseUp
  453.   if it is "cancel" then exit mouseUp
  454.   repeat with i=1 to number of fields
  455.     put empty into field i
  456.   end repeat
  457.  
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 53 (field)
  463. -- low flags: 00
  464. -- high flags: 0007
  465. -- rect: left=105 top=108 right=159 bottom=161
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 0
  469. -- font id: 3
  470. -- text size: 9
  471. -- style flags: 0
  472. -- line height: 12
  473. -- part name: 
  474.  
  475.  
  476. -- part 54 (button)
  477. -- low flags: 00
  478. -- high flags: 8000
  479. -- rect: left=471 top=294 right=335 bottom=512
  480. -- title width / last selected line: 0
  481. -- icon id / first selected line: 32462 / 32462
  482. -- text alignment: 1
  483. -- font id: 0
  484. -- text size: 12
  485. -- style flags: 0
  486. -- line height: 16
  487. -- part name: Help
  488. ----- HyperTalk script -----
  489. on mouseUp
  490.   push card
  491.   go to card id 11167 of stack "box4"
  492. end mouseUp
  493.  
  494.  
  495.  
  496.  
  497. -- part 56 (field)
  498. -- low flags: 80
  499. -- high flags: 4007
  500. -- rect: left=49 top=23 right=340 bottom=511
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 0 / 0
  503. -- text alignment: 0
  504. -- font id: 3
  505. -- text size: 12
  506. -- style flags: 0
  507. -- line height: 16
  508. -- part name: SHOW
  509.  
  510.  
  511. -- part 60 (button)
  512. -- low flags: 00
  513. -- high flags: 8002
  514. -- rect: left=0 top=283 right=311 bottom=35
  515. -- title width / last selected line: 0
  516. -- icon id / first selected line: 0 / 0
  517. -- text alignment: 1
  518. -- font id: 0
  519. -- text size: 12
  520. -- style flags: 0
  521. -- line height: 16
  522. -- part name: hide
  523. ----- HyperTalk script -----
  524. on mouseUp
  525.   global LL
  526.   global FF
  527.   global CC
  528.   global MM
  529.   put 1 into CC
  530.   put empty into MM
  531.   get the number of lines in field "show"
  532.   put it into LL
  533.   repeat for LL times
  534.     get line CC of field "SHOW"
  535.     put it after MM
  536.     add 1 to CC
  537.   end repeat
  538.  
  539.   hide field "SHOW"
  540.   repeat with c =1 to number of card buttons
  541.     show card button c
  542.   end repeat
  543. end mouseUp
  544.  
  545.  
  546.  
  547. -- part 61 (button)
  548. -- low flags: 00
  549. -- high flags: 8002
  550. -- rect: left=1 top=312 right=342 bottom=35
  551. -- title width / last selected line: 0
  552. -- icon id / first selected line: 0 / 0
  553. -- text alignment: 1
  554. -- font id: 0
  555. -- text size: 12
  556. -- style flags: 0
  557. -- line height: 16
  558. -- part name: Zoom
  559. ----- HyperTalk script -----
  560. on mouseUp
  561.  
  562.   global FF
  563.   global LL
  564.   global CC
  565.   global MM
  566.   put empty into MM
  567.   put 1 into CC
  568.   ask "Which field you like to see?" with "A1"
  569.   if it is empty then exit mouseUp
  570.   if it is not in "A1A2A3A4A5A6B1B2B3B4B5B6C1C2C3C4C5C6" then exit mouseUp
  571.   put it into WFF
  572.   if WFF is "A1" then put 2 into FF
  573.   if WFF is "A2" then put 22 into FF
  574.   if WFF is "A3" then put 1 into FF
  575.   if WFF is "B1" then put 3 into FF
  576.   if WFF is "B2" then put 4 into FF
  577.   if WFF is "B3" then put 5 into FF
  578.   if WFF is "A4" then put 9 into FF
  579.   if WFF is "A5" then put 10 into FF
  580.   if WFF is "A6" then put 11 into FF
  581.   if WFF is "B4" then put 12 into FF
  582.   if WFF is "B5" then put 13 into FF
  583.   if WFF is "B6" then put 14 into FF
  584.   if WFF is "C1" then put 6 into FF
  585.   if WFF is "C2" then put 7 into FF
  586.   if WFF is "C3" then put 8 into FF
  587.   if WFF is "C4" then put 15 into FF
  588.   if WFF is "C5" then put 16 into FF
  589.   if WFF is "C6" then put 17 into FF
  590.  
  591.   get the number of lines in field FF
  592.   put it into LL
  593.   repeat for LL times
  594.     set cursor to busy
  595.     get line CC of field FF
  596.     put it after MM
  597.     put return after MM
  598.     add 1 to CC
  599.   end repeat
  600.  
  601.   put MM into field "SHOW"
  602.   repeat with c = 1 to number of card buttons
  603.     Hide card button c
  604.   end repeat
  605.   show field "SHOW"
  606.  
  607. end mouseUp
  608.  
  609.  
  610.  
  611. -- part 62 (button)
  612. -- low flags: 00
  613. -- high flags: 8002
  614. -- rect: left=409 top=167 right=191 bottom=507
  615. -- title width / last selected line: 0
  616. -- icon id / first selected line: 0 / 0
  617. -- text alignment: 1
  618. -- font id: 0
  619. -- text size: 12
  620. -- style flags: 0
  621. -- line height: 16
  622. -- part name: Name Card
  623. ----- HyperTalk script -----
  624. on mouseUp
  625.   put empty into NameCard
  626.   if field "Name" is empty
  627.   then
  628.   ask "Please enter the name of this card:"
  629.   if it is empty then exit mouseUp
  630.   put it into NameCard
  631.   set the name of this card to NameCard
  632.   put NameCard into field "Name"
  633. end if
  634.  
  635. if field "Name" is not empty
  636. then
  637. put first line of field "Name" into NameCard
  638. set the name of this card to NameCard
  639. end if
  640.  
  641. end mouseUp
  642.  
  643.  
  644.  
  645. -- part 63 (button)
  646. -- low flags: 00
  647. -- high flags: 8002
  648. -- rect: left=406 top=252 right=274 bottom=506
  649. -- title width / last selected line: 0
  650. -- icon id / first selected line: 0 / 0
  651. -- text alignment: 1
  652. -- font id: 0
  653. -- text size: 12
  654. -- style flags: 0
  655. -- line height: 16
  656. -- part name: New Card
  657. ----- HyperTalk script -----
  658. on mouseUp
  659.   answer "Make another card like this one? " with "yes" or "no" or "cancel"
  660.   if it is "cancel" then exit mouseUp
  661.   if it is "no" then
  662.     put "Go to the card which you want to copy" into the message box
  663.     exit mouseUp
  664.   end if
  665.  
  666.   if it is "yes" then
  667.  
  668.     domenu "copy Card"
  669.     domenu paste card
  670.     set name of this card to empty
  671.     repeat with i=1 to number of fields
  672.       put empty into field i
  673.     end repeat
  674.     put empty into field "Name"
  675.   end if
  676.  
  677. end mouseUp
  678.  
  679.